home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 9 / The PC-SIG Library on CD ROM - Ninth Edition.iso / 301_400 / DISK0324 / DISK0324.ZIP / SHOWCHRS.PAS < prev    next >
Pascal/Delphi Source File  |  1984-07-10  |  388b  |  20 lines
  1. PROGRAM DisplayChars;
  2.  
  3. {  This program displays all the printable characters for the     }
  4. {  IBM PC.  Written for TurboPascal by Jeff Firestone. June 1984  }
  5.  
  6. VAR
  7.   i,j: INTEGER;
  8.   a: CHAR;
  9.  
  10. BEGIN
  11.   i:= 32;
  12.   REPEAT
  13.     FOR j:= 0 TO 15 DO WRITE((i+j):4);
  14.     WRITELN;
  15.     FOR j:= 0 TO 15 DO WRITE(CHR(i+j):4);
  16.     WRITELN;
  17.     i:= i + j + 1;
  18.   UNTIL (i >= 256);
  19. END.
  20.